home *** CD-ROM | disk | FTP | other *** search
- PROCEDURE MYPTYUQQ ( LENGTH : WORD; LOC : ADSMEM ) [PUBLIC];
-
- VAR
- Index : WORD;
- PTR : ADS OF BYTE;
- Ch : BYTE;
-
- BEGIN
- Ptr := Loc;
- FOR Index := 1 TO Length DO
- BEGIN
- Ch := Ptr^;
- DisplayChar ( Ch ); { YOUR NEW OUTPUT ROUTINE JUST LIKE TURBO }
- Ptr.R := Ptr.R + 1;
- END; { FOR }
- END;